Compare Numeric Time Series

Load the data and setup properly

The table to analyze

datatable(f_all,
          filter = "top",
          class = "cell-border stripe",
          extensions = c("AutoFill",
                         #"Buttons",
                         "ColReorder",
                         "KeyTable",
                         "Responsive",
                         "RowReorder"),
          options = list(pageLength = 20,
                         lengthMenu = c(5, 10, 15, 20, 25, 50, 100, 250, 500, 1000),
                         order = list(list(7, "desc")),
                         autofill = TRUE,
                         #dom = "Bfrtip",
                         #buttons = c("copy", "csv", "excel", "pdf", "print"),
                         colReorder = TRUE,
                         keys = TRUE,
                         rowReorder = TRUE)
          ) %>% formatStyle(c("Raw_Gain_M", "Raw_Cover_M", "Raw_Freq_M"),
                             background = styleColorBar(c(0, f_all$Raw_Gain_M[order(f_all$Raw_Gain_M, decreasing = TRUE)[2]]), 'lightgreen'),
                             backgroundSize = '100% 90%',
                             backgroundRepeat = 'no-repeat',
                             backgroundPosition = 'center') %>%
                formatStyle(c("TS_Gain_M", "TS_Cover_M", "TS_Freq_M"),
                             background = styleColorBar(c(0, f_all$TS_Gain_M[order(f_all$TS_Gain_M, decreasing = TRUE)[2]]), 'pink'),
                             backgroundSize = '100% 90%',
                             backgroundRepeat = 'no-repeat',
                             backgroundPosition = 'center') %>%
                formatStyle(c("Raw_Count", "TS_Count"),
                             background = styleColorBar(c(0, 5), 'lightgrey'),
                             backgroundSize = '100% 90%',
                             backgroundRepeat = 'no-repeat',
                             backgroundPosition = 'center') %>%
                formatPercentage(columns = c("Raw_Gain_M", "TS_Gain_M", "Raw_Cover_M", "TS_Cover_M", "Raw_Freq_M", "TS_Freq_M"),
                                 digits = 4)

Some plots

plotting <- ggplot(as.data.frame(f_all)[1:(nrow(f_all) - 2), ], aes(x = Raw_Gain_M, y = TS_Gain_M, color = Raw_Rank, color2 = TS_Rank)) + labs(title = "TS Gain vs Raw Gain, Rank Multivariate", x = "Raw Gain", y = "Time-Series Gain") + theme_bw() + geom_rug() + scale_color_colorplane(axis_title = "Raw Gain Rank", axis_title_y = "TS Gain Rank") + theme(plot.title = element_text(size = rel(2), face = "bold"), axis.title.x = element_text(size = rel(2)), axis.title.y = element_text(size = rel(2)), axis.text.x = element_text(size = rel(2)), axis.text.y = element_text(size = rel(2))) + geom_point_interactive(aes(tooltip = Feature), size = 2)
plotting <- ggplot(as.data.frame(f_all)[1:(nrow(f_all) - 2), ], aes(x = Raw_Cover_M, y = TS_Cover_M, color = Raw_Rank, color2 = TS_Rank)) + labs(title = "TS Cover vs Raw Cover, Rank Multivariate", x = "Raw Cover", y = "Time-Series Cover") + theme_bw() + geom_rug() + scale_color_colorplane(axis_title = "Raw Gain Rank", axis_title_y = "TS Gain Rank") + theme(plot.title = element_text(size = rel(2), face = "bold"), axis.title.x = element_text(size = rel(2)), axis.title.y = element_text(size = rel(2)), axis.text.x = element_text(size = rel(2)), axis.text.y = element_text(size = rel(2))) + geom_point_interactive(aes(tooltip = Feature), size = 2)
ggiraph(code = print(plotting), width_svg = 18, height_svg = 14, zoom_max = 5)

plotting <- ggplot(as.data.frame(f_all)[1:(nrow(f_all) - 2), ], aes(x = Raw_Freq_M, y = TS_Freq_M, color = Raw_Rank, color2 = TS_Rank)) + labs(title = "TS Freq vs Raw Freq, Rank Multivariate", x = "Raw Freq", y = "Time-Series Freq") + theme_bw() + geom_rug() + scale_color_colorplane(axis_title = "Raw Gain Rank", axis_title_y = "TS Gain Rank") + theme(plot.title = element_text(size = rel(2), face = "bold"), axis.title.x = element_text(size = rel(2)), axis.title.y = element_text(size = rel(2)), axis.text.x = element_text(size = rel(2)), axis.text.y = element_text(size = rel(2))) + geom_point_interactive(aes(tooltip = Feature), size = 2)
ggiraph(code = print(plotting), width_svg = 18, height_svg = 14, zoom_max = 5)

plotting <- ggplot(as.data.frame(f_all)[1:(nrow(f_all) - 2), ], aes(x = Raw_Rank, y = TS_Rank, color = Raw_Gain_M, color2 = TS_Gain_M)) + labs(title = "TS Gain Rank vs Raw Gain Rank, Non-Rank Multivariate", x = "Raw Gain Rank", y = "Time-Series Gain Rank") + theme_bw() + geom_rug() + scale_color_colorplane(axis_title = "Raw Gain", axis_title_y = "TS Gain") + theme(plot.title = element_text(size = rel(2), face = "bold"), axis.title.x = element_text(size = rel(2)), axis.title.y = element_text(size = rel(2)), axis.text.x = element_text(size = rel(2)), axis.text.y = element_text(size = rel(2))) + geom_point_interactive(aes(tooltip = Feature), size = 2)
ggiraph(code = print(plotting), width_svg = 18, height_svg = 14, zoom_max = 5)

plotting <- ggplot(as.data.frame(f_all)[1:(nrow(f_all) - 2), ], aes(x = Raw_Rank, y = TS_Rank, color = Raw_Cover_M, color2 = TS_Cover_M)) + labs(title = "TS Gain Rank vs Raw Gain Rank, Cover Multivariate", x = "Raw Gain Rank", y = "Time-Series Gain Rank") + theme_bw() + geom_rug() + scale_color_colorplane(axis_title = "Raw Cover", axis_title_y = "TS Cover") + theme(plot.title = element_text(size = rel(2), face = "bold"), axis.title.x = element_text(size = rel(2)), axis.title.y = element_text(size = rel(2)), axis.text.x = element_text(size = rel(2)), axis.text.y = element_text(size = rel(2))) + geom_point_interactive(aes(tooltip = Feature), size = 2)
ggiraph(code = print(plotting), width_svg = 18, height_svg = 14, zoom_max = 5)

plotting <- ggplot(as.data.frame(f_all)[1:(nrow(f_all) - 2), ], aes(x = Raw_Rank, y = TS_Rank, color = Raw_Freq_M, color2 = TS_Freq_M)) + labs(title = "TS Gain Rank vs Raw Gain Rank, Freq Multivariate", x = "Raw Gain Rank", y = "Time-Series Gain Rank") + theme_bw() + geom_rug() + scale_color_colorplane(axis_title = "Raw Freq", axis_title_y = "TS Freq") + theme(plot.title = element_text(size = rel(2), face = "bold"), axis.title.x = element_text(size = rel(2)), axis.title.y = element_text(size = rel(2)), axis.text.x = element_text(size = rel(2)), axis.text.y = element_text(size = rel(2))) + geom_point_interactive(aes(tooltip = Feature), size = 2)
ggiraph(code = print(plotting), width_svg = 18, height_svg = 14, zoom_max = 5)